SEITE 



1 
2 
3 

4 

5 
6 
7 
8 
9 

10 
11 
12 
1,5 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
2ft 

2 7 
2H 
29 
30 
31 

3 2 
33 
34 
35 
36 
37 

3a 

39 

4 
41 
42 
43 

44 
4S 
46 
47 
4d 
49 

50 
51 
?2 

53 
54 
55 
56 

5 7 

f>8 
5 9 



MODEL NUMBER «F0l5 

PURPOSE F QRTRAM PHASE'15 

PROGRAMMER DICK WALLHANN 

**************** RFVISION U^ T ************** 



RV DATE 



SCO BY RfcASON *OP CHANCE 



GENERAL AUTOMATION, INC, ALL RIGHTS RESERVED 
************************************************** 

* 

* PROGRAM f'AME FP^-15 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 01 11/16/70 NONE RRH INITIAL RELEASE 

* 

********************************** ******** ******** 
************************************************** 
HDNG MPX FORTRAN ** SUBSCRIPT OPTIMIZE 

************************************************** 

♦STATUS -VERRin ; 1, MODIFICATION 

* 

*FUNCTION/OPERATION- 

* * SCANS REAP, WRITE, IF, CALL, AND ARITHMETIC 

* STATEMENTS FUR SUBSCRIPT fcXpRESSIONS 

* * OPTIMIZES SUBSCRIPT CALCULATION BY MEANS 3F 
THE SUBSCRIPT EXPRESSION TABLE 

* GENERATES SUBSCRIPT GfcNfcRATfcD TE«PORARIfcS AS 
NECESSARY 



* 

* 

* 

* 

♦ENTRY PQINT5- 

* START-PHASE 15 IS READ INTO CURE BY PHASE 14 



* 

* 



TRANSFER TO ROLRX. fcXfcCUTlON IS BEGUM 
AT LOCATION START, 



♦INPUT-THE STATEMENT STRING M A Y BE CONSIDERED 

* INPUT 

*OUTPUT-THE STATEMENT STRINu ANU THE SYMBOL TAB'uE 

* AS ALTERED BY THE PHASE M A Y HE CONSIDERED 

* OUTPUT 

♦EXTERNAL REFERENCES-?'/ A 



♦EXITS 

♦ NO 

* 
* 
* 

ER 

* 
* 
* 
* 
* 
* 



RMAL- 
AT L 

INTE 
PHAS 
ROR- 
THE 
INTE 
INST 
STMN 
PROC 
AN 
IS T 



OCATION OUT TRANbFfcR lb MADF TO THE 
RPHASE ROLLER ROuTjNb fcHJCH LOADS 
E 16, 

FLOW OF COMPILER PROCESSING IS MOT 
RRUPTED WHEN AN tRROK jS ENCOUNTERED, 
EAD, AN ERROR STMNT kEHLAOES THE FAULTY 
T OH THE STRING AMp i Hfc STMNT SCANNING 
ESS CONTINUES, An EXCEPTION OCCURS WHEN 
VrRLA.P ERROR IS uETECTfcD, CLMPlLATIOV 
HEN ABORTED AND UOnTkOL I b MASSES FROM 



SEITE 



60 
61 
62 
63 
64 

65 
66 
87 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
8 
81 
82 
83 
R4 
8 5 

8 6 
87 
88 
89__ 

9 
91 
92 
93 
94 
95 
96 
97 
98 
99 

ino 

1D1 
102 
103 
10 4 
10 5 
10 6 
1 7 
10 8 
10 9 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 



* 

* 

* 

* 

*T 

* 

* 

# 
* 

* 

# 

* 
* 

* 
* 
* 
* 
* 

* 



PHASE TO PHASE, EACH P 
FXITING TO THE MEXT UN 
THE OVERLAP ERROR MESS 
THE ERROR DEJECTD BY P 

ABLES/WQRK AREAS- 
STRING 

SYMBOL TABLE 
FORTRAN COMMUNICATIONS AR 

SUBSCRIPT EXPRESSION [AaL 
BOUND VARIABLE TABLE- 

FNTRIES ARE UNIQUE VaR 

SUBSCRIPT EXPRESSION A 

SUBSCRIPT GENERATED TEMPO 

FOR HOLD OF LOCAL SGjS 

TTRIBUTES-M/A 



HAbE IMMEDIATELY 

TIL PHASE 21 PRINTS 

AGfc. 

HASE 15 IS NO 6 3 



fcA 

E-bEfc BELOW 

lAbLES FOUND If THE 
T HAND, 
RAKY TABLI— 



OTES- 

THE SWITCHES USED IN ?HaS 
ZERO, THE SWITCH IS T^AnS 
SWITCH IS .NORMA M, 

♦SW1-T PURGE FLTNG Pi mOn-DIM INTGR VBL.E 
*SW2-T I/O FOUND 
♦SW3-T PUT EP NON*U iV 
♦SW4-T I\i FUNCTION CaL 
*SW5-T DO NOT OPTIMUE 
♦SW6-T CLOSE STRING 
*************************** 
ARS 



b 15 FOLLOW, II NON- 
FEK 1, IF ZERO, THE. 



AR IN B"UND V8L.E T3L 
L 



r********************* 



A ; ' 



* 
* 
* 

MEMRY 

PHSIZ 

OVERL 

FCOM 

PHNTB 

ROLRX 

* 



SOFS 

EOPS 

SQFST 

SOFNS 

SOFXT 

SOFGT 

EOFST 

COMON 

CSIZE 

ERROR 

FNAME 

SORF 

ccwn 



SYSTEM AND FORTRAN EQUATES 



EQU 
EOU 
EQU 
EQU 
EQU 
EQU 



ORG 
BSS 
RSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



4*320 

riPMRY-PHSlZ 
OVERL-22 
FCOM-56 
PHNTB -5 C 



MAXIMUM COPE SIZE 
MAXIMUM PHASE SIZE 
PHASES 2-29 START 
FOKTKAN COMH. TABLE 
PHASE TABLE 
JN1ERPHASE CALL 



FORTRAN COMMUNICATION AREA 



FCOM 



-1 
JL 


START GF 


1 


END OF S 


1 


START OF 


1 


START OF 


1 


START OF 


1 


START Of- 


1 


END OF S 


1 


NEXT AVA 


1 


SIZE OF 


1 


OVERLAP 


1 


PROGRAM 


1 


NAME 


1 


SUBROUTJ 


1 


CONTROL 




BIT 15 




BIT 14 




BIT 13 



STRING 

IRJNU 

"SYMdOL TABLE 
NQN- S T AT fcMt NT NUMBERS 
SUBSCRIPT TEMPORARIES 
GENERATED TEMPORARIES 

YMBOL TABLE 

1LABLE COMMON 

UOMMUN 

tRROH 



NE - OR HjrcTIOt 

LARD WORD 
TRANSFER TRACE 
ARITHMETIC TRACE 

EXTENDED PRECISION 



SEITE 



120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

1.48 

149 

150 

151 

152 

153 

154 

155 

156 

1.57 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

17 

171 

172 

173 

174 

175 

17 6 

177 

178 

179 



* 
* 
* 
IOCS 



BSS 



* 



LOZZ 



* 
* 
TEST 



BIT 12 LIST SYMBOL TABLE 
p I f 11 LIST SUBPROGRAM NAMES 
PIT 1Q LIST SOURCE PROGRAM 
BIT 9 ONE WyRD INTEGERS 
1 IOCS "CONTROL CARD WORD 

SEE PHASE ONE FOR BjT PATTERNS 



DFCNT BSS 

LCOMN ESS 

ICCER BSS 

BSS 



ORG 
START LP 
BSC 



LDX 
LDX 
LDX 
SLA 
STO 
STO 
STO 
STO 
STO 
HDX 
MDX 
MDX 
STO 



LD 

SRA 

AND 

S 

BSC 



BSC 

S 

BSC 

S 

BSC 

s 

nsc 

LP 
BSC 



* 
TEST3 

LOOP1 



LPX 

LDX 

LP 

BSC 

OR 

STO 



1 
2 

2 



L 
L 
L 
L 



DEFINE FUfc COUMT 

SIZE OF INSKEL COMMON 

IOCS CONTROL CARP ERROR 

SYSTEM LUAUEK USE 

END OF FURTRAN CO»M AREA 



OVERL 

ERROR 

L 0JT,Z 



11 SOFS 
L2 SETBL 

3 15 

16 

L Sa'1 

L SV2 

L SW3 

2 7 
L3 GTTA8-1 

2 a 

3 -1 
LnZZ 

L BVTAB 



EX I I TO NEXT PHASE 
if QVtRLAP EPPOR 

INITIALIZE PHASE 

"XR1 PTS TU STAHT OP STRING 
Pf *R2 10 SUHSCR EXPR TABL 



nqkmalue 

Fp nON-U INTEGER SWITCH 
I/O FUUND SWITCH 
Fp NON-D INTEGER VBLE SW 
ENTKY NUT USED PREVIOUSLY 
SfcT 
FOR 
EACH 

SGT TABLE Ef'TRY 
SET BVTAB INDICATOR EMPRY 



CHECK STATEMENT TYPE 
i CHELK 

1 FUR 

IPTPE END 

EMDC STATEMENT 

, OJT, - OONt.jF SU 



FHRMM 
MOVE, - 
DFL 

MOVE i - 
C L E 

MOVE* - 
DATAS 
MOVE, - 



1 
L TEST1.6 



IF FORMAT STATEMENT 

MuVE TO NEXT 
IF uEFlNE FILE STATEMENT 

"MuVE TO NEXT 
IF UALL LINK/EXIT STMNT 

MuVE 10 NEXT 
IF UAT A "STATEMENT 
"MUVE 10 Nf:XT 

GO TO TEST! IF STATEMENT 
HaS STATEMENT MUMPER 



L2 SETBL 

3 15 

2 7 

L $'<, " 

L MASK1 



SET PRIURlTY STATUS 



GET SETbL ENTRY TYP[ 
RR IF ENTRY USED PRF VIOJSL 
SET ENTRY NOT USED 
"RtSfcT 



SEITE 



lfiO 
181 
182 
183 
1R4 
185 
186 
187 
188 
189 
190 
191 
1<>2 
1?3 
194 

195 
196 
197 
198 
199 
200 
2 01 
202 
203 
20 4 
205 
20 6 
20 7 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 

2?.i 

224 
225 
226 
227 

228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 



SK HDX 
MDX 
MDX 

* 

TEST2 LP 
BSC 



* 
PA 



* 
TEST1 



TLR1 



* 
* 
* 
CLSET 



LOOP 



* 
TLK 

Rl 



LD 
BSI 

MDX 
HDX 
MDX 
MDX 



LD 
BSI 

AND 
BSC 
LD 
SRA 

BSC 

MDX 

MDX 

LD 

OR 

STO 

MDX 



DC 
LDX 
LDX 
SLA 

STO 
MDX 
MDX 
MDX 
BSC 



BSI 
Si A 
STO 
STO 
STO 
STO 
STO 



LD 
SRA 

AND 
BSC 
S 
BSC 

c 

BSC 



L 
L 



I 

L 
L 
L 



LOOP1 

RV TAB 
Bl, - 



L 
L 

L 



13 



L 
L 
L 

L 
L 



CQN'l iNUfc 
RtSfcT 
LOOK 

8R 10 Bl JF HOUND VT LE 
"TaRuE IS E/1PTY 

PURGE EnTrY FROM BVTAB 



ElFS 
PLIRG 

FOFS.-l 

BVTAB,-! 

B4 
TT.ST2 



PURuE ASSOCIATED 
"SUBSCHIRT EXPRESSION 
^TaBLE ENTRY 
PJRuE BOUND VAP TABLE EMTF 
UNTIL DUNE 



1 

CHECK 

MASK2 

TLR^ 



1 

E 

TLR1 

TEST3 



MASK2 



TE5T3 





SETBL 

Cl5 

16 
7 

8 
- 1 

LOOP 
CLSET 



CLSET 

16 

Sh'l 

SW2 

S^3 

S,'4 

Sa'5 



TEST FUh REKEKENCED STaTEMEM-T 
"STAIEMENT NO 
GET'SYMBOL TABLE ID 
CHECK FUR ST^NT FUNCTIOV 
BR 10 TlR IF ASF 
STAlEhENT ID 
CHECK If 

"RteFERtNCED 
YES 
MO 

REFtREMCEU 
SET SYMbOL THL ID 

' TU JNUICATL REFERENCED 
GO KESET PRIORITY STATUS 

CLEAR SUBSCK fcXP« TABLE 

RETURN LINK 

POJiNT TU SUBSCR EXPF' TA3LE 
NUMbER UF ENTRIES 
ZERO 
LOOK 
TU 
CLEAN 
SE1BL 
EXIT 

normalise switches 

go clear 5ubsch expp table 

ZERU 

'f* non-d integer 
i/o fuund sw 
fk non-d integer 
In FUNCTION CALL 
DU NO! OPTIMIZE SW 



SW 
V8LE 

sw 



SW 



BRANCH 





1 

I'JTPE 

TEST4, 

CALLC 

TESTS, 

READC 

TFST8, 



TO 



TEST4 

JF ARITHMETIC STI'NT 

TEbT5 

IF CALL STMNT 

TEST8 

"It- HEAD STMNT 



SEITE 



240 




s 


WPITC 


TES|7 


241 




BSC 


L TEST?, 


"U WRlTfc STM'-'T 


242 




s 


FINDC 


TESf8 


243 




BSC 


L TEST8, 


" n FIND STAMEMT 


244 




s 


IEC 


n 


24 5 




BSC 


L C, - 


It- IF STATEMENT 


246 




S 


one 


IF ;mOT AMY OF ABOVE OH DO, 


247 




BSC 


L MOVEiZ Th£ N |v,0vE TD r ' EXT STHv;T 


248 


* 








249 




BSI 


CLSET 


DO ULfcAKS SETBL 


250 


* 








251 


MOVE 


un 


1 o 


MQVfc TO NEXT STATEMENT 


252 




SRA 


2 


GfcT 


253 




AND 


L IDNRM 


nuRm 


254 




STO 


mxid : 


I AnD 


255 


MX ID 


MDX 


LI *•* 


MgVfc 


256 




MDX 


TEST 


GO IES1" NEW STMf-T TYPE 


257 


* 








258 


* 






CONSTANTS 


259 


swi 


DC 


c 


FP NON-U INTEGER SWITCH 


260 


5W2 


DC 





I/O FQUNP SH 


261 


SW3 


Dr 





PUT FP NON-D INTEGER VBL. S 


262 


SW4 


DC 





IN y UNCTION CALL SW 


263 


SW5 


DC 





DO NOT OPTIMIZE SW 


264 


IDTPE 


DC 


/7C00 


FOR EXTRACTING STRlf Q IpTY 


265 


ENDC 


DC 


/ n 8 


END TYPE 


266 


FORMM 


DC 


/ 3 • 


-/Q800 i-ORHAT TY^E 


267 


DEL 


DC 


/7800. 


-/3000 DEFINE FILE 


268 


CLE 


DC 


/7000. 


-/7800 UALL LINK/EXIT 


269 


DATAS 


DC 


/7C0O' 


-/7000 L'ATA STATEMENT 


270 


MASKl 


DC 


/ a o o o 


fcNT^Y NOT USED BITS 


271 


HASK2 


DC 


/nQ2Q 


UYM TBL OK FOR RFF STMN 


272 


CALLC 


DC 


/1800 


LALL TYPE 


273 


READC 


DC 


/4800 


-/1800 WEAD TYPE 


274 


WRITC 


DC 


/44 


-/48Q0 wRjTfc 


275 


FINDC 


DC 


/7400 


-/4400 t-lND 


276 


IFC 


DC 


/3C0O 


-/7400 IF 


27 7 


DOC 


DC 


/2C00 


-/3CO0 UO 


278 


* 








279 


«r 






*#**•*********#***************•*• 


1— l * 

280 


* 






* SUBSCRIPT EXPRESSION TABLE 


281 


* 






# #*******##******************** 


282 


* 






# 15 ENlRlEb <• 8 WORDS EACH 


283 


* 






* WORDl D4 


284 


* 






* 2 I 


285 


* 






* 3 Dl 


286 


* 






* 4 J 


287 


SETBL 


ess 


120 


* > D2 


288 


* 






* 6 K 


289 


* 






* / 03 


290 


* 






* B /bnin ENTRY NOT USED 


291 


# 






* /0010 USED THIS STMT 


2^2 


* 






* /0000 USED PREV STMT 


293 


* 






# 


294 


+ 






**• + ******#********************* 


2^5 


* 








29 6 


CIS 


DC 


15 


FlFiEEN 


Z Q 7 


JDNRM 


DC 


/C1FF 




298 


IDSAV 


DC 





ID bAVE 


2°9 


noAc 


DC 


/002A 


IMPLIED DO OPERATOR 



SEITE 



300 
301 
302 
303 
304 
305 
306 

307 
30« 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 

33 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
343 

34 9 
350 
351 
352 
353 
354 
355 
356 
357 
358 
3 5 9 



niooP 

DEEIL 

TEST4 



TESTS 
TEST7 

TEST5 

* 
* 
C 



* 
F 



* 

EE 

• 
E 



DC 



HDX 
HDX 
MDX 

Mrx 

MDX 
MDX 

HDX 



STX 

LD 

BSC 

MDX 

MDX 

SLA 



LD 

S 

BSC 

LD 
BSC 

LD 
BSC 

LD 

S 

BSC 

LD 
BSI 

SLA 

STO 

MDX 
MDX 



AVAR STX 
LDX 

* 

AVAR2 LD 
SRA 
AMD 

S 

BSC 

s 

RSC 



L 
L 



L 

L 



/ 3 UISK I/O OPERATOR 
/7800^/CSQO UF TEST CONSTANT 



Ss'3,1 ARM H STMNT 

Swl.l "StT TU PURGE FLPT ND IVA 

C Tg PUT I r TO BVTAB 

REAU/F IND STMNT 
S,'l,l StT SWITCHES 1,2 

WRIlE STMNT 

$■42,1 "stT switch 2 

C " SW2 - I/U FOUND 

CALL bTMMT 
3,i3,l StT SWITCH 3 



INITIALIZE 10 SCAN BODY 

1 IDSAV "SAVt STKING POINTER 

I STRING POINTER 

E SKIP 

1 1 over 

1 1 STATEMENT NUMBER 

16 NOKMALUE 
L TOT TUT 



1 

DIOOP 
L AVAR* - 

1 
L JAY, - 

L S ■•' 2 

L HEH, - 

1 C 
DDAC 
L I,Z 

1 -1 
L PJRG 

16 
L S,,'3 



j j. 
F 



BRANCH rO AVAR 

IF DISK I/O OPERATOR 

BRANCH 10 JA^ 
*U SEMICOLON 

BRANCH TO HEH 
' l[ I/U FOUND 

BRANCH TO I 
~ I* 

NQT IMPLIED DO 

PURtjE IND1CY FROM 
"SU8SCKIPT EXPRESSION TBL 

NORMALISE 

SW3 

MOVt STKING POINTER 
REChEcK 



PUT ASSuC VbLb P 1 f'VTAB 
1 A'v'ARX 1 SAVb xRl 
II SOFS INITIALIZE TU SCAN STRIV'G 



1 

1 

L inTpb 

L E'IDC 

L AVARX, . 

DEFIL 
L A/AR4,7 



LOAu STMNT I D 

MASK FOK TYRE CHEDK 

BRANCH 10 AVARX 
'If fcNU 

BRANCH TO AVAR4 
' Ih NO 1 DEFINE FILE 



SEITE 



360 
361 


* 


LD 


1 


4 


GET ASSOCIATED VARIABLE 


36? 




BSI 




PBVTB 


PUT INTU BOUND VBLE TAB' L E 


363 

364 


* 
AVAR4 


Lr 


•t 
■i- 





LOAU STATEMENT ID 


365 




SRA 




2 


GET 


366 




AND 




IDNRM 


STATEMENT A! OK'f* 


36 7 




STO 




AVAR6 1 


AND'REAUY FO* 


368 


AVAR6 


HDX 


LI 


*.* 


MOVt TO MfcXT STATEMENT 


369 




MDX 




AVAR2 


GO UHfcC* NEXT STATEMENT 


370 


* 










371 


AVARX 


LDX 


LI 


*«•* 


RESTORE XN1 


37? 




MDX 




F 


CONT iNUfc 


3 73 


* 










374 


* 










375 


MASK3 


DC 




/DBDb 


CONbTANTS 


376 


MASK4 


DC 




/40 




377 


* 










378 


I 


LD 


L 


SW3 


BK TO B.5 


379 




esc 


L 


B3.Z 


"if SW3 SET 


380 




LD 


L 


Swl 


BK 10 D 


381 




BSC 


L 


D, - 


"if S«l ^°T SET 


382 


* 










383 


P3 


LD 


1 





GET ID WORD 


384 




BSI 


L 


C sECK 


"Oh SYMBOL TABLE ENTRY 


385 




AND 




MASK3 


CHECK 


386 




EOR 




MASK4 


' l¥ D I MENS I ONE P 


38 7 




BSC 


L 


D,Z 


BR IF DIMENSIONED 


388 




LD 


L 


S,;3 


BR 10 PURGE SUUSCR t.Xf-'R TB 


389 




BSC 


L 


PGSET, - 


" if 5*3 N°T SET 


39 




BSI 




PBVTB 


PUT NAMfc IN BQl MD VE'LE TBI. 


391 




MDX 




E 


GO MOVE POINTER 


392 


* 










39 3 


PGSET 


LD 


1 





PURuE NAME FHOH 


39 4 




BSI 


L 


P'.'RG 


"SUBSCKIRT EXPR TAI LE 


395 




MDX 




E 


GO MOVE POINTER 


396 


* 










39 7 


PBVTB 


DC 




*•»* 


LINK 


398 


ECHO 


LD 


1 





PUT SUBSCRIPT 


399 




MDX 


L 


EQFSil 


VARjAbLE I rj 


40 




STO 


I 


EQFS 


BOUND VAH TABLE 


4(11 




MDX 


L 


B\.'TAB,1 


INCKEMENT HVTAt SIZE INOCT 


402 




LD 


L 


eqfst 


CHEUK 


40 3 




A 


L 


TWO 


FUR 


40 4 




S 


L 


EQFS 


OvEKUAP 


405 




BSC 


L 


WAP, Z 


INDICATE OVERLAP AND GO OU 


4 D 6 




BSC 


I 


P3VTB 


RETURN 


407 

408 


* 
SUBZ 


DC 




/0018 


LlTbRAL SUBSCRIPT If'DICATO 


409 


SUBl 


DC 




/noo? 


ONE-DIM SUBSCRIPT INDICATO 


410 


C7 


DC 




7 


Y SWITCH VAL U E 


411 


Cll 


DC 




11 


y switch val u e 


412 

413 


* 
* 






DETERMINE DIM LEVEL OF 5UBSCR 


414 


D 


LD 


1 







415 




S 




S.IPZ 


BR 10 TbT 


41b 




BSC 


L 


T3T, - 


" If LUERAL SUBSCRIPT 


417 




S 




S V 'B1 


8* TO TSTl 


43.8 




BSC 


L 


TSTl, - 


' If ONE-DIM SI RSCRIPT 


41,9 




s 




S !B1 


BK TO TST2 



SEITE 



420 
421 
422 
4?3 
424 
425 
426 
427 
42.8 
429 
430 
431 
4 32 
433 
434 

435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 

4f?6 

457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
466 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 



TST 

TSTl 

TST2 

TST3 
JED 

* 

TST4 



FOXl 
FOX 



LUUP3 

LUUP4 
LUUP 



* 
GOG 



BSC 
S 

BSC 
MDX 

LD 

MDX 

LD 

MDX 

LD 

MDX 

LD 

STO 



STX 
STX 
LDX 
LDX 

SLA 
STO 

MDX 

MDX 

LDX 

MDX 

MDX 

MDX 

LD 

STO 
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SEITE 15 



840 




OR 


L 


MASK2 


INDICATE REFERENCED STMMTM 


841 




STO 


3 


f) 


STOKE IN SYMBOL TABLE 


842 




UD 


1 





RESfcT 


843 




AND 




iH3 


'STATEMENT J HEMP OO 


844 

845 


+ 
# 








3UBRQJTJNE 10 PURGE INDICES 


846 


* 








FRO^i SUBSCRIPT EXRR TABLE 


847 


PURG 


DC 




•km* 


LINK 


848 




STO 




TEMP 


SAVfc PURGE ELEMENT 


849 




LD 


L 


Ci5 


SET CNT EUUAL TD NUMBER 


850 




STO 




CMT 


"Oh SETSL ENTRIES 


851 




LDX 


L (.- 


SET8L 


POINT Tu SETBL 


852 




STX 


3 


SAVE 


SAVfc XR3 


853 




STX 


2 


TAP 4 


SAVt INDEX P^R FOR LOUI r 


854 


PURR 


LD 


? 


7 


entky indicator 


855 




BSC 


L 


P.JPR 3 


,Z B* iF NUT USED PREV STM\|T 


856 




HDX 


c 


8 


NEXT EMTRY INDICATOR 


857 




MDX 


L 


C -jT,-l 


DECKEMENT ENTRY COUMT 


858 




MDX 




PJRR'1 


LOOP 


859 




MDX 




OJT1 


n/a" 


86 




LDX 


13 


C3 


COUNT FUR 3 INDICES 


861 


L00P4 


LD 


c 


1 


K,J,K 


862 




S 




TEHP 


DOES INUICY COMPARE 


863 




BSC 


L 


TAP, - 


YES, GO PgRQE 


864 




MDX 


2 


2 


NO, CQMTINUE-PT TO NEXT 


665 




HDX 


3 


- 1 


DECREMENT INDEX COUNT 


866 




MDX 




LD0P4 


LOOP 


867 




MDX 


2 


2 


POJivT XK2 TO NEXT ENTRY 


868 




STX 


2 


TAP 4 


SAVt INDEX RTR FOR NODI" 


869 




MDX 


L 


C-']T,-1 


DECKEMENT ENTRY COUNT 


87 




MDX 




P.IRR 


LOOK FOK NEXT ENTRY 


871 




MDX 




OJT1 


N/A" 


87? 


TAP 


MDX 


L 


TAP 4, 


7 MOVfc TO ENTRY INDICATOR 


873 




SLA 




15 


CLEAR 


874 




STO 


L 


*-* 


'ENTRY INDICATOR 


875 




MDX 


2 


2 


LOOK TO 


876 




MDX 


3 


«. A 


SfcT OR 


877 




MDX 




TAP 5 


XH2 


876 




MDX 




L00P4 


7 AND GO SET FOR NEXT ENT Ch 


879 


O'JTl 


LDX 


13 


SAVE 


RESTORE XK3 


880 




BSC 


I 


P'IRG 


RETURN 


881 


* 










882 


* 








CONSTANTS 


883 


SAVE 


DC 







XR3 SAVt 


884 


cnt 


DC 




G 


SETBL ENTRY COUNT 


885 


C3 


DC 




3 


THRtE 


886 


MC3 


DC 




/FFFD 




887 


TEMP 


Dr 







HOLU PUKGE ELEMENT 


888 


BVTAB 


DC 




C 


BOUND VdL TBL INDICATOR 


889 
89 


# 
RUFF 


BSS 




7 


SUBSCR fcXPRESSION AT HA\'D 


891 

892 


* 








SUBROUTINE 10 COMPUTE SYMBOL 


393 


* 








TABLE ADDHESS AND TO LOAD 


894 


* 








ACC 'WITH SY* TBL ID WORD 


895 


* 










B96 


CHECK 


. DC 




n 


LIN* 


897 




BSC 


U 


SIM 3, 


- 


898 




AND 




l-UB 


COMPUTE 


899 




M 




MC3 


ADDRESS 



ba:k 



SEITE 16 



900 




SLT 




16 




901 




A 




cs 




902 




A 


L 


SQFST 




903 




STO 




SIM 1 




90 4 


SIM 


LDX 


L3 


■km* 




903 




LD 


3 







906 




BSC 


I 


CHECK 




907 


* 










908 


MAB 


DC 




/Q7FF 




909 


* 










910 


* 








su 


911 


* 










912 


AN I ML 


DC 









913 




LD 


L 


f'V'TArf 




914 




BSC 


L 


DlEli 


- 


91? 




LD 


I 


EOFS 




916 




BSI 


L 


PJRG 




917 




MDX 


L 


E3FS#- 


■ 1 


918 




MDX 


L 


8VTAB, 


,-1 


919 




MDX 




A 11 ML 


5 


920 


DIE1 


BSC 


I 


A 'J I HL 




921 


* 










922 




BSS 




OVERL. 


• ** 


923 


* 










924 


* 










925 




END 




START 





XR3 PTS 
GET SY^ 
RETURN 



Tu ADDRESS 
T«L ID UORD 



SUBROUTINE ID PU H GE BOyflQ V3L 
TABLE FROM THE Sl'BSC EXPR TB 
LINK 

TABLE CUUNTE^ 
GO UUT l^ EMPTY 
LP CLEMENT 
PJKijE IT 
DfcCHEMENT taule 
DECkEmEnT TAOLf SIZE 

l5ok 

RETURN 
320*4 PHASE-IS PATCH AREA 



